home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / pascal / totsrc11.zip / TOTFLAGS.INC < prev    next >
Text File  |  1993-05-04  |  3KB  |  90 lines

  1. (*
  2. TOTFLAGS.INC is included in all TOT units. You can add any global compiler
  3. directives, etc. to this file.
  4.  
  5.      The TOT conditional defines are
  6.  
  7.           FINAL - enable this directive when you are building the production
  8.                   version of your program. The activated settings are designed
  9.                   to reduce program code size, and increase execution speed.
  10.  
  11.           FLOAT - Enable this directive if your program will be using extended
  12.                   real types, i.e. singlee, double, extended and comp. When
  13.                   this directive is not enforced, all real types are set to
  14.                   be plain reals. programs compiled in this state will
  15.                   only run on machines fitted with a math coprocessor
  16.  
  17.         FLOATEM - This is the same as FLOAT except the program will run
  18.                   on systems that are not equipped with a math coprocessor.
  19.                   In case you were wondering, the compiler directive is an
  20.                   abbreviation for FLOAT EMULATION.
  21.  
  22.     OVERLAYINIT - This directive should normally be used when you want
  23.                   to overlay Toolkit units. Refer to the file OVERLAY.DOC
  24.                   for further information.
  25.  
  26.         OVERLAY - Use this directive if you want to overlay any of the
  27.                   toolkit units and perform individual unit initialization.
  28.                   Be sure to call the unitINIT proc in your
  29.                   main program, e.g. IOINIT. The unitINIT procedures
  30.                   perform any necessary unit initialization.
  31.  
  32.     To active a compile directive, you must use the $DEFINE keyword. For
  33.     example, to enable full floating point math emulation in your program
  34.     include the following statement in the "DEFINES AREA" below:
  35.  
  36.                      {$DEFINE FLOATEM}
  37. *)
  38.  
  39. {+++++++++++++++++++++++++++    DEFINES   AREA   +++++++++++++++++++++++++++}
  40.  
  41. { $ DEFINE FINAL}
  42.  
  43. { $ DEFINE FLOAT}
  44. { $ DEFINE FLOATEM}
  45.  
  46. { $ DEFINE OVERLAYINIT}
  47. { $ DEFINE OVERLAY}
  48.  
  49. {+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
  50.  
  51.  
  52.  
  53.  
  54.  
  55. {General compiler directives}
  56.  
  57. {$V-}   {no string length checking}
  58.  
  59. {$IFDEF FINAL}
  60.     {$S-,R-,L-,D-}
  61. {$ELSE}
  62.     {$S+}
  63.     {$R+}
  64.     {$L+}
  65.     {$D+}
  66.     {$DEFINE CHECK}
  67. {$ENDIF}
  68.  
  69. {$IFDEF OVERLAYINIT}
  70.     {$F+}
  71.     {$O+}
  72. {$ELSE}
  73.    {$IFDEF OVERLAY}
  74.     {$F+}
  75.     {$O+}
  76.    {$ENDIF}
  77. {$ENDIF}
  78.  
  79. {Note the floating point type casting is in the totReal unit}
  80.  
  81. {$IFDEF FLOAT}
  82.     {$IFDEF FLOATEM}
  83.         {$N+,E+}
  84.     {$ELSE}
  85.         {$N+,E-}
  86.     {$ENDIF}
  87. {$ELSE}
  88.     {$N-,E-}
  89. {$ENDIF}
  90.